(rmail-convert-file): If file needs conversion, convert it all.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e70161d507f57eac27169b886c5ed3ad0a6e81ed..e0d07beb917224c57b714fc37fc51bec0cc473e3 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -282,7 +282,8 @@ that file, but does not copy any new mail into the file."
                   (looking-at "\n*From ")))
        (let ((buffer-read-only nil))
          (message "Converting to Babyl format...")
-         (narrow-to-region (point) (point-max))
+;;; If file needs conversion, convert it all.
+;;;      (narrow-to-region (point) (point-max))
          (rmail-convert-to-babyl-format)
          (message "Converting to Babyl format...done")))))